﻿Public Class Form1
    Dim x As Single
    Dim op As String

    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button點.Click, Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click, Button1.Click, Button0.Click

        TextBox1.Text = TextBox1.Text + CType(sender, Button).Text

    End Sub
End Class
